home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / utilitys / 613 / access / pick_acc.bat < prev    next >
DOS Batch File  |  1991-10-19  |  7KB  |  214 lines
  1. echo {Ef}
  2. set numact 0
  3. for f \*.acc
  4.     if !{>= $numact 6}
  5.         move $f_pathname \accessor\!{tail $f_pathname}
  6.     else
  7.         set {active`$numact} !{root !{tail $f_pathname}}
  8.         set numact !{+ $numact 1}
  9. set numinact 0
  10. for f \accessor\*.acc
  11.     set {inactive`$numinact} !{root !{tail $f_pathname}}
  12.     set numinact !{+ $numinact 1}
  13. set off 0
  14. set col 4
  15. while !{< $off $numact}
  16.     pos $col 1
  17.     echo ${active`$off}
  18.     set off !{+ $off 1}
  19.     set col !{+ $col 12}
  20. set off 0
  21. set row 5
  22. set col 4
  23. while !{< $off $numinact}
  24.     pos $col $row
  25.     echo ${inactive`$off}
  26.     set off !{+ $off 1}
  27.     if !{= $col 64}
  28.         set row !{+ $row 1}
  29.         set col 4
  30.     else
  31.         set col !{+ $col 12}
  32. set prev_off 3
  33. set prev_row 3
  34. set prev_col 38
  35. set off 3
  36. set row 3
  37. set col 38
  38. set cont {OK}
  39. while $cont
  40.     if !{= $prev_row 1}
  41.         pos $prev_col 1
  42.         echo ${active`$prev_off}
  43.     elseif !{= $prev_row 3}
  44.         pos $prev_col 3
  45.         echo { OK }
  46.     else
  47.         pos $prev_col $prev_row
  48.         echo ${inactive`$prev_off}
  49.     echo {p}
  50.     if !{= $row 1}
  51.         pos $col 1
  52.         echo ${active`$off}
  53.     elseif !{= $row 3}
  54.         pos $col 3
  55.         echo { OK }
  56.     else
  57.         pos $col $row
  58.         echo ${inactive`$off}
  59.     echo {q}
  60.     set prev_off $off
  61.     set prev_row $row
  62.     set prev_col $col
  63.     set key !{input -c}
  64.     if !{= $key {\15}}
  65.         if !{= $prev_row 1}
  66.             set prev_off $numinact
  67.             set prev_row !{+ !{/ $prev_off 6} 5}
  68.             set prev_col !{+ !{* !{mod $prev_off 6} 12} 4}
  69.             set numinact !{+ $numinact 1}
  70.             set numact !{- $numact 1}
  71.             pos $col $row
  72.             echo {        }
  73.             pos 4 20
  74.             echo {M}
  75.             pos 4 23
  76.             move \${active`$off}.acc \accessor\
  77.             set {inactive`$prev_off} ${active`$off}
  78.             set {active`$off} ${active`$numact}
  79.             if !{= $off $numact}
  80.                 if !{= $off 0}
  81.                     set row 3
  82.                     set col 38
  83.                 else
  84.                     set off !{- $off 1}
  85.                     set col !{- $col 12}
  86.             pos !{+ !{* $numact 12} 4} 1
  87.             echo {        }
  88.         elseif !{= $prev_row 3}
  89.             set cont {}
  90.         elseif !{< $numact 6}
  91.             set prev_off $numact
  92.             set prev_row 1
  93.             set prev_col !{+ !{* $prev_off 12} 4}
  94.             set numact !{+ $numact 1}
  95.             set numinact !{- $numinact 1}
  96.             pos $col $row
  97.             echo {        }
  98.             pos 4 20
  99.             echo {M}
  100.             pos 4 23
  101.             move \accessor\${inactive`$off}.acc \
  102.             set {active`$prev_off} ${inactive`$off}
  103.             set {inactive`$off} ${inactive`$numinact}
  104.             if !{= $off $numinact}
  105.                 if !{= $off 0}
  106.                     set row 3
  107.                     set col 38
  108.                 else
  109.                     set off !{- $off 1}
  110.                     if !{= !{mod $off 6} 0}
  111.                         set row !{- $row 1}
  112.                         set col 64
  113.                     else
  114.                         set col !{- $col 12}
  115.             pos !{+ !{* !{mod $numinact 6} 12} 4} !{+ !{/ $numinact 6} 5}
  116.             echo {        }
  117.     elseif !{= $key {\110}}            ;up
  118.         if !{= $prev_row 1}
  119.             if !{> $numinact 0}
  120.                 set off !{- $numinact 1}
  121.                 set off !{+ !{- $off !{mod $off 6}} $prev_off}
  122.                 set row !{+ !{/ $off 6} 5}
  123.                 if !{>= $off $numinact}
  124.                     set off !{- $numinact 1}
  125.                     set col !{+ !{* !{mod $off 6} 12} 4}
  126.         elseif !{= $prev_row 3}
  127.             if !{> $numact 0}
  128.                 if !{>= $off $numact}
  129.                     set off !{- $numact 1}
  130.                 set row 1
  131.                 set col !{+ !{* $off 12} 4}
  132.         elseif !{< $prev_off 6}
  133.             set row 3
  134.             set col 38
  135.         else
  136.             set off !{- $prev_off 6}
  137.             set row !{- $prev_row 1}
  138.     elseif !{= $key {\120}}            ;down
  139.         if !{= $prev_row 1}
  140.             set row 3
  141.             set col 38
  142.         elseif !{= $prev_row 3}
  143.             if !{> $numinact 0}
  144.                 if !{>= $off $numinact}
  145.                     set off !{- $numinact 1}
  146.                 set row 5
  147.                 set col !{+ !{* $off 12} 4}
  148.         else
  149.             set off !{+ $prev_off 6}
  150.             if !{>= $off $numinact}
  151.                 set off !{- $numinact 1}
  152.                 set row !{+ !{/ $off 6} 5}
  153.                 set col !{+ !{* !{mod $off 6} 12} 4}
  154.                 if !{and !{= $row $prev_row} !{> $numact 0}}
  155.                     set off !{mod $prev_off 6}
  156.                     if !{>= $off $numact}
  157.                         set off !{- $numact 1}
  158.                     set row 1
  159.                     set col !{+ !{* $off 12} 4}
  160.             else
  161.                 set row !{+ $row 1}
  162.     elseif !{= $key {\113}}            ;left
  163.         if !{= $prev_row 1}
  164.             if !{= $off 0}
  165.                 if !{> $numinact 0}
  166.                     set off !{- $numinact 1}
  167.                     set row !{+ !{/ $off 6} 5}
  168.                     set col !{+ !{* !{mod $off 6} 12} 4}
  169.             else
  170.                 set off !{- $off 1}
  171.                 set col !{- $col 12}
  172.         elseif !{= $prev_row 3}
  173.             if !{> $numact 0}
  174.                 set off !{- $numact 1}
  175.                 set row 1
  176.                 set col !{+ !{* $off 12} 4}
  177.         elseif !{= $prev_off 0}
  178.             set row 3
  179.             set col 38
  180.         else
  181.             set off !{- $prev_off 1}
  182.             if !{= !{mod $prev_off 6} 0}
  183.                 set row !{- $prev_row 1}
  184.                 set col 64
  185.             else
  186.                 set col !{- $prev_col 12}
  187.     elseif !{= $key {\115}}            ;right
  188.         if !{= $prev_row 1}
  189.             set off !{+ $prev_off 1}
  190.             if !{>= $off $numact}
  191.                 set row 3
  192.                 set col 38
  193.             else
  194.                 set col !{+ $col 12}
  195.         elseif !{= $prev_row 3}
  196.             if !{> $numinact 0}
  197.                 set off 0
  198.                 set row 5
  199.                 set col 4
  200.         else
  201.             set off !{+ $prev_off 1}
  202.             if !{>= $off $numinact}
  203.                 if !{> $numact 0}
  204.                     set off 0
  205.                     set row 1
  206.                     set col 4
  207.             elseif !{= $prev_col 64}
  208.                 set row !{+ $row 1}
  209.                 set col 4
  210.             else
  211.                 set col !{+ $col 12}
  212. echo {e}
  213.  
  214.